﻿Imports Control_Vuelos_BL
Imports Control_Vuelos_BE
Public Class frmAdm_ManifiestoDatos
    Public p_CodViaje As String
    Private _M_Lugar As New M_LugarBL
    Private _M_EmpresaTransporte As New M_EmpresaTransporteBL
    Private _CManifiestoBE As New C_ManifiestoBE
    Private _Manifiesto As New ManifiestoBL

    Private Sub frmAdm_ManifiestoDatos_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ModManifiesto_MasDatos1.cbDesOrigen.Properties.DataSource = _M_Lugar.ListarM_Lugar("")
        ModManifiesto_MasDatos1.cbDesOrigen.Properties.DisplayMember = "NomLugar"
        ModManifiesto_MasDatos1.cbDesOrigen.Properties.ValueMember = "CodLugar"
        ModManifiesto_MasDatos1.cbDesDestino.Properties.DataSource = _M_Lugar.ListarM_Lugar("")
        ModManifiesto_MasDatos1.cbDesDestino.Properties.DisplayMember = "NomLugar"
        ModManifiesto_MasDatos1.cbDesDestino.Properties.ValueMember = "CodLugar"
        ModManifiesto_MasDatos1.cbNomEmpresa.Properties.DataSource = _M_EmpresaTransporte.ListarM_EmpresaTransporte("")
        ModManifiesto_MasDatos1.cbNomEmpresa.Properties.DisplayMember = "NomEmpresa"
        ModManifiesto_MasDatos1.cbNomEmpresa.Properties.ValueMember = "CodEmpresa"

        _CManifiestoBE = _Manifiesto.pr_RecuperarCabecera(p_CodViaje)

        ModManifiesto_MasDatos1.gCodViaje.EditValue = _CManifiestoBE.CodViaje
        ModManifiesto_MasDatos1.cbDesOrigen.EditValue = _CManifiestoBE.CodLugarOrigen
        ModManifiesto_MasDatos1.cbDesDestino.EditValue = _CManifiestoBE.CodLugarDestino
        ModManifiesto_MasDatos1.cbNomEmpresa.EditValue = _CManifiestoBE.CodEmpresa
        ModManifiesto_MasDatos1.gContacto.EditValue = _CManifiestoBE.Contacto
        ModManifiesto_MasDatos1.gFchViaje.EditValue = _CManifiestoBE.FchViaje
        ModManifiesto_MasDatos1.gHraViaje.Time = _CManifiestoBE.FchViaje
        ModManifiesto_MasDatos1.chkFlgValija.EditValue = _CManifiestoBE.FlgValija
        ModManifiesto_MasDatos1.gObsCabeceraManifiesto.EditValue = _CManifiestoBE.ObsCabeceraManifiesto
        ModManifiesto_MasDatos1.gNomAeropuerto.EditValue = _CManifiestoBE.NomAeropuerto
        ModManifiesto_MasDatos1.gObsCabecera.EditValue = _CManifiestoBE.ObsCabecera
        ModManifiesto_MasDatos1.gTelContacto.EditValue = _CManifiestoBE.TelContacto

        
        Dim oProgViaje As New ProgramaViajeBL
        Dim oRstPViaje As New V_ProgramaViajeBE
        oRstPViaje = oProgViaje.TraerProgramaViaje(_CManifiestoBE.CodViaje)

        Dim oTipoVuelo As New M_TipoVueloBL
        Dim oRstTVuelo As New M_TipoVueloVE
        oRstTVuelo = oTipoVuelo.pr_Get_TipoVuelo(oRstPViaje.CodTipoVuelo)

        ModManifiesto_MasDatos1.cboNomTipo.EditValue = oRstTVuelo.NomTipo
        ModManifiesto_MasDatos1.gHraViaje.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.DateTime
        ModManifiesto_MasDatos1.gHraViaje.Properties.Mask.EditMask = "HH:mm"
        ModManifiesto_MasDatos1.gHraViaje.Properties.Mask.UseMaskAsDisplayFormat = True

        AddHandler ModManifiesto_MasDatos1.gfchViaje.EditValueChanged, AddressOf SetValueDateTime
        AddHandler ModManifiesto_MasDatos1.gHraViaje.EditValueChanged, AddressOf SetValueTimeDate
        ModManifiesto_MasDatos1.gObsCabecera.Focus()
    End Sub

    Private Sub SetValueDateTime()
        ModManifiesto_MasDatos1.gHraViaje.Time = ModManifiesto_MasDatos1.gfchViaje.EditValue
    End Sub

    Private Sub SetValueTimeDate()
        ModManifiesto_MasDatos1.gfchViaje.EditValue = ModManifiesto_MasDatos1.gHraViaje.EditValue
    End Sub

    Private Sub cmdaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaceptar.Click
        If ModManifiesto_MasDatos1.DxValidationProvider1.Validate Then
            Dim _C_ManifiestoBE As New C_ManifiestoBE
            _C_ManifiestoBE.CodViaje = ModManifiesto_MasDatos1.gCodViaje.EditValue
            _C_ManifiestoBE.CodLugarOrigen = ModManifiesto_MasDatos1.cbDesOrigen.EditValue
            _C_ManifiestoBE.CodLugarDestino = ModManifiesto_MasDatos1.cbDesDestino.EditValue
            _C_ManifiestoBE.CodEmpresa = ModManifiesto_MasDatos1.cbNomEmpresa.EditValue
            _C_ManifiestoBE.Contacto = ModManifiesto_MasDatos1.gContacto.EditValue
            _C_ManifiestoBE.FchViaje = ModManifiesto_MasDatos1.gFchViaje.EditValue
            _C_ManifiestoBE.NomAeropuerto = ModManifiesto_MasDatos1.gNomAeropuerto.EditValue
            _C_ManifiestoBE.ObsCabeceraManifiesto = ModManifiesto_MasDatos1.gObsCabeceraManifiesto.EditValue
            _C_ManifiestoBE.FlgValija = ModManifiesto_MasDatos1.chkFlgValija.EditValue
            _C_ManifiestoBE.ObsCabecera = ModManifiesto_MasDatos1.gObsCabecera.EditValue
            _C_ManifiestoBE.TelContacto = ModManifiesto_MasDatos1.gTelContacto.EditValue
            If Not _Manifiesto.pr_ActualizarCabecera(_C_ManifiestoBE) Then
                MsgBox(" Error al Actualizar Cabecera Manifiesto ", MsgBoxStyle.Critical, Text)
            Else
                My.MySettings.Default("Contacto" & _C_ManifiestoBE.CodLugarOrigen.Trim) = ModManifiesto_MasDatos1.gContacto.EditValue
                My.MySettings.Default.Save()
                My.MySettings.Default("Telefono" & _C_ManifiestoBE.CodLugarOrigen.Trim) = ModManifiesto_MasDatos1.gTelContacto.EditValue
                My.MySettings.Default.Save()
                Close()
            End If
        End If
    End Sub
End Class